/* GUI CONVERTED from rsrp03a.p (converter v1.75) Sat Aug 12 23:15:19 2000 */
/* rsrp03a.p - Release Management Supplier Schedules                        */
/* Copyright 1986-2002 QAD Inc., Carpinteria, CA, USA.                      */
/* All rights reserved worldwide.  This is an unpublished work.             */
/* web convert rsrp03a.p (converter v1.00) Mon Oct 06 14:22:18 1997 */
/* web tag in rsrp03a.p (converter v1.00) Mon Oct 06 14:18:40 1997 */
/*F0PN*/ /*K0MS*/ /*                                                    */
/*V8:ConvertMode=Report                                            */
/* REVISION: 7.3    LAST MODIFIED: 01/05/93           BY: WUG *G462*        */
/* REVISION: 7.3    LAST MODIFIED: 07/14/93           BY: WUG *GD42*        */
/*                                 08/27/94           BY: BCM *GL63*        */
/* REVISION: 8.5    LAST MODIFIED: 03/16/95           BY: dpm *J044*        */
/* REVISION: 7.4    LAST MODIFIED: 10/22/95           BY: vrn *G0YF*        */
/* REVISION: 8.5    LAST MODIFIED: 02/26/96     BY: *J0CV* Brandy J Ewing   */
/* REVISION: 8.6    LAST MODIFIED: 10/10/97           BY: gyk *K0MS*        */
/* REVISION: 8.6E   LAST MODIFIED: 08/17/98     BY: *L062* Steve Nugent     */
/* REVISION: 8.6E   LAST MODIFIED: 10/04/98     BY: *J314* Alfred Tan       */
/* REVISION: 9.1    LAST MODIFIED: 03/24/00     BY: *N08T* Annasaheb Rahane */
/* REVISION: 9.1    LAST MODIFIED: 08/12/00     BY: *N0KP* myb              */

 /* ********** Begin Translatable Strings Definitions ********** */

/*GUI preprocessor directive settings */
&SCOPED-DEFINE PP_GUI_CONVERT_MODE REPORT

/*J0CV*/ {mfdeclre.i} /*GUI moved to top.*/
 &SCOPED-DEFINE rsrp03a_p_1 "Subcontract Type"
 /* Maxlen: Comment: */
 /* ********** End Translatable Strings Definitions ********** */

         /* SCHEDULE AUTH SUMMARY SUBPROGRAM */

/*GUI moved mfdeclre/mfdtitle.*/
         {gplabel.i} /* EXTERNAL LABEL INCLUDE */

/*K0MS*/ {wbrp02.i}

         define input parameter pod_recid as recid.

/*J044*/ define variable impexp   like mfc_logical no-undo.
/*L062*/ define variable subtype  as character format "x(12)"
        label {&rsrp03a_p_1} no-undo.

         {rsordfrm.i}

         find pod_det where recid(pod_det) = pod_recid no-lock.

         find scx_ref where scx_type = 2 and scx_order = pod_nbr
            and scx_line = pod_line no-lock.
         find ad_mstr where ad_addr = scx_shipfrom no-lock.
         find si_mstr where si_site = scx_shipto no-lock.
         find pt_mstr where pt_part = scx_part no-lock.

         /*K0MS* disp *K0MS*/
     do with frame  prm:
         /*K0MS*/ display
              scx_po
              scx_part
              scx_shipfrom
              scx_shipto
              ad_name
              si_desc
              pod_vpart
/*GD42*/      pod_um
              scx_line
/*G0YF* with frame a. */
/*G0YF*/ with frame prm STREAM-IO /*GUI*/ .
        end. /* do with */

/*J0CV*/ /* DISPLAY ERS INFORMATION IF ERS IS ENABLED */
/*J0CV*/ find first poc_ctrl no-lock no-error.
/*J0CV*/ if available poc_ctrl and poc_ers_proc then do with frame pers:
            /* SET EXTERNAL LABELS */
            setFrameLabels(frame pers:handle).
/*J0CV*/    display
/*J0CV*/       pod_ers_opt   colon 16
/*J0CV*/       pod_pr_lst_tp colon 68
/*J0CV*/    with frame pers side-labels width 80 no-attr-space STREAM-IO /*GUI*/ .
         end. /* if available poc_ctrl and poc_ers_proc then */
/*K0MS*/ {wbrp04.i}
